home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 3.2 / Ham Radio Version 3.2 (Chestnut CD-ROMs)(1993).ISO / control / net400-1 / makimage.pas next >
Pascal/Delphi Source File  |  1989-07-12  |  1KB  |  61 lines
  1. {$R-}    {Range checking off}
  2. {$B+}    {Boolean complete evaluation on}
  3. {$S+}    {Stack checking on}
  4. {$I+}    {I/O checking on}
  5. {$N-}    {No numeric coprocessor}
  6. {$M 65500,16384,655360} {Turbo 3 default stack and heap}
  7.  
  8. program makimage;
  9.  
  10. Uses
  11.   Crt;
  12.  
  13. var  screen1 : array[0..4095] of byte;
  14.      screen3 : array[0..1399] of byte;
  15.      screen4 : array[0..1919] of byte;
  16.      video   : array[0..3999] of byte ABSOLUTE $B800:0000;
  17.      inputfile : text;
  18.      outputfile : file;
  19.      line : string[80];
  20.      i : integer;
  21. begin
  22.   assign(inputfile,'SCREEN1.NET');
  23.   assign(outputfile,'NET.IMG');
  24.   ClrScr;
  25.   reset(inputfile);
  26.   rewrite(outputfile);
  27.   while (NOT Eof(inputfile)) do
  28.   begin
  29.     readln(inputfile,line);
  30.     write(line);
  31.   end;
  32.   video[290] := 27;
  33.   video[306] := 26;
  34.   move(video, screen1, 4000);
  35.   blockwrite(outputfile, screen1, 32);
  36.   close(inputfile);
  37.   ClrScr;
  38.   assign(inputfile,'SCREEN3.NET');
  39.   reset(inputfile);
  40.   while (NOT Eof(inputfile)) do
  41.   begin
  42.     readln(inputfile,line);
  43.     writeln(line);
  44.   end;
  45.   for i := 0 to 13 do
  46.     move(video[160*i], screen3[100*i],100);
  47.   blockwrite(outputfile, screen3, 11);
  48.   clrscr;
  49.   assign(inputfile,'SCREEN4.NET');
  50.   reset(inputfile);
  51.   while (NOT Eof(inputfile)) do
  52.   begin
  53.     readln(inputfile,line);
  54.     writeln(line);
  55.   end;
  56.   for i := 0 to 7 do
  57.     move(video[160*i], screen4[100*i],100);
  58.   blockwrite(outputfile, screen4, 15);
  59.   close(outputfile);
  60. end.
  61.